tcl script run